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255 



Fig. 



start 



301 



For each translation unit i, create a graph Pi 



302 



Set global graph P by merging all Pz 

303 



Find ficed point solution S. 



304 



m 



Create local solutions s/ such that SE Si for all L 

305 



Use local solution Sj for optimizing translation unit i. 

306 



± 




Fig. 3 



Fujnction 


Fujnction (x,y) 


410 — TOP 


(PURE,PURE) 


420 —COPY 


(y.y) 


430 — IN_TO_LOST 


if><! => (LOST,LOST) 
otherwise => (PURE,PURE) 


440— UNRETURN 




450^ 

COPY_AND_IN_TO_LOST 


ify=LOST=>(LOST,LOST) 
otherwise => (z, z) where z=y\J 01 


460 — CATFORMAL 
470- — CATACTUAL 


if y<L => (LOST,LOST) 
otherwise => (y,y) 
(y,PURE) 

(PUREj/) 


480 —GATE 


if x=LOST=> (LOST,LOST) 

else if x<R (z,z) where z = (xUOI)riy 
else(z,z)where z = (x^O!) 



Fig. 4A 




FIG. 4B 



start LOWER_EDGE(w,v ? /) 




510 



Create edge w— »v 
SetFUN[w-»v] :=TOP 



530' 



r 

500 



T 



520 



yes 



Set FUN[ k->v] := Set FUN[ w-»v] nf 




599 e nd 



Fig. 



r 

600 



start LOWER_VERTEX(v,x) 601 




1 


r 


Set VAL[v] : VAL[v] n (x,x); 




r 



699 




end 



610 



Fig. 



start mOCESS_EF¥ECT(lvalue,effect) \w801 




Setx 


:=xnl 







800 

J 




Is variable local? 



Set v:=VERTEX(p) 



845 



yes 



Set v to implicit parameter 
vertex of containing routine 



850 



Invoke LOWER_VERTEX(v,jcJ 



855 



899 




end 



Fig. 8 



900 

J 




Setv:= VERTEXQJ) 
Set /= COPY 



&tfv:=VERTEX(W) 
Set /:= IN_TO_LOST 





no 


906 






r 


Set v := vertex for implicit parameter 


Set/:- COPY n IN_TO_LOST 



Invoke ADD_EDGE(w,h/) 

907 



end 
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999 



Fig. 9 



// Translation unit #1 

int* f( int* a, int* b, int n ) { 
int *c = a; 
if ( n>0 ) { 

int* d = a+1; 

int* e = b+1; 

int* z = f( d, e, n-1 ); 

c = z-1; 

*c = *b; 

} 

return c; 

I 



// Translation unit #2 

extern int* f(int* a, int* b, int n ); 

void g( int* p ) { 
inty[10]; 
f( &y[0], p, 10 ); 

} 
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rranslation Unit #1 


Source line 


Action 


(entry into f) 


Add [@a,-2] ->[f,0] 
Add [@b,-2] ->[f,l] 


int *c = a; 


Add [@c,-2] -> [@a,-2] 


n>0 


None 


int *d = a+1; 


Add [@d,-2] -> [@a,-2] 


int *e = b+1; 


Add [@e,-2] -> [@b,-2] 


int* z = f(d,e,n-l) 


Add [@z,-2] [@0,-3] -> [@d,-2] 

Add [f,0] [@0,3] 

Add [@z,-2] -> [@l,-3] [@b,-2] 

Add [f,l]->[@l,3] 

Add[f,-l]^[f,-l] 


c = z-1; 


Add [@c,-2] -4 [@z,-2] 


*c = *b; 


Lower VAL[[@c,-2]] to O 
Lower VAL[[@b,-2]] to I 


return c; 


Lower VAL[[@c,-2]] to R 




Translation Unit #2 


Action 


Action 


int *p = &x[0]; 


None 


for( int i=0; i<10; i++) 


None (no pointer assignments) 


*P = i; 


Lower VAL[[@p,-2]] to O 


P =p+l 


None (edge omitted by self-loop rule) 


c = z-1; 


Add [@c,-2] -> [@z,-2] 



FIG. 13 



